home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 55 / 055.d81 / quick titles (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  15KB  |  401 lines
  1. 100 print"[147]":poke53280,3:poke53281,0
  2. 105 dimc$(16),ch$(15),ld(10,7),pc$(27),pt$(27)
  3. 110 printchr$(142):b$="            "
  4. 115 fori=0to15:readc$(i):next
  5. 120 fori=0to15:readch$(i):next
  6. 125 fori=1to27:readpc$(i),pt$(i):next:fori=1to4:readlt(i),lt$(i):next
  7. 130 print"[147][159]                                        ";
  8. 135 print"          loadstar presents...          ";
  9. 140 print"                                        ":print
  10. 145 print" [162] [162][162] [146][162] [159]   [146]    [146] [156]  [162]  [162][146]   [162] [162][162] [146][162]    [146] [162] [162][146] "
  11. 150 print"[145]   [146]    [146] [159]   [146]    [146] [156]     [146]      [146]         [162][146]   "
  12. 155 print"[145] [162] [146][162][162] [162][146] [159]   [146]    [146] [156]     [146]      [146]  [162][162]    [162] [146][162]  "
  13. 160 print"[145]    [162][162][162][146] [159]  [162][162][162][162][146]  [156]  [162][162][162][162][146]    [162][162][162][162][146]   [162][162][146]  [162][162][146] "
  14. 165 printtab(8)"[158][161][187][172][146][161][129] [187][172][146] [149][161][187][172][146][161][150][187][146][161]  [153][187][172][162][146][161][154][172][172][187][146][187]"
  15. 170 printtab(8)"[158] [161][146][161] [129] [161][146][161] [149] [161][146][161] [150][161][146][161]  [153][161][188][146][161] [154][188][188][146][162] "
  16. 175 printtab(8)"[158] [161][146][161] [129] [161][146][161] [149] [161][146][161] [150][161][146][161] [187][153][161][146][161][190][187][154][172][187][161][146][161]"
  17. 180 printtab(8)"[158] [162][162][146] [129] [162][162][146] [149] [162][162][146] [150][162][162][162][146][190][153][162][162][162][146][190][154] [162][162][146] "
  18. 185 print""tab(6)"[150]                            [146]"
  19. 190 printtab(6)"[150] [159]                          [150] [146]"
  20. 195 printtab(6)" [159] (c) 1988   by jim speers [150] [146]"
  21. 200 printtab(6)" [159]                          [150] [146]"
  22. 205 printtab(6)" [159]   spacebar to continue   [150] [146]"
  23. 210 printtab(6)" [159]                          [150] [146]"
  24. 215 printtab(6)"                            [146]";
  25. 220 getz$:ifz$=""orz$<>" "then220
  26. 225 print"[147]"
  27. 230 poke214,10:print:printtab(8)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][146]"
  28. 235 printtab(8)"[221][150]                     [159][221][146]"
  29. 240 printtab(8)"[221][150] instructions? (y/n) [159][221][146]"
  30. 245 printtab(8)"[221][150]                     [159][221][146]"
  31. 250 printtab(8)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][146]"
  32. 255 getz$:ifz$=""or(z$<>"y"andz$<>"n")then255
  33. 260 ifz$="y"thengosub1165
  34. 265 br$="[150][194][146]":print"[147]"
  35. 270 printtab(7)br$"                       "br$
  36. 275 printtab(7)"[150][194]       font menu       [194][146]"
  37. 280 printtab(7)br$"                       "br$
  38. 285 printtab(7)br$"                       "br$
  39. 290 printtab(7)br$" [159]a) upper case/graphic "br$
  40. 295 printtab(7)br$" [159]b) lower/upper case   "br$
  41. 300 printtab(7)br$" [159]c) loadstar           "br$
  42. 305 printtab(7)br$" [159]d) niles              "br$
  43. 310 printtab(7)br$" [159]e) cass               "br$
  44. 315 printtab(7)br$" [159]f) bold               "br$
  45. 320 printtab(7)br$" [159]g) narrow             "br$
  46. 325 printtab(7)br$" [159]h) underlined         "br$
  47. 330 printtab(7)br$" [159]i) double width       "br$
  48. 335 printtab(7)br$" [159]j) script             "br$
  49. 340 printtab(7)br$" [159]k) reversed           "br$
  50. 345 printtab(7)br$" [159]l) italic             "br$
  51. 350 printtab(7)br$" [159]m) your custom font   "br$
  52. 351 printtab(7)br$"                       "br$
  53. 352 printtab(7)br$"[158] q) quit to loadstar   "br$
  54. 355 printtab(7)br$"                       "br$
  55. 360 printtab(7)br$"                       "br$
  56. 365 printtab(7)br$"     select letter     "br$
  57. 370 printtab(7)br$"                       "br$
  58. 375 getz$:ifz$=""then375
  59. 376 ifz$="q"then3000
  60. 380 ifz$<"a"orz$>"m"then375
  61. 385 ifz$<>"m"then440
  62. 390 print"[147]":poke214,11:print
  63. 395 printtab(7)"[159]filename: [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  64. 400 poke214,11:print:printtab(17);
  65. 405 gosub1150:l1=32:h1=127:l2=160:h2=255:li=16:gosub1080:nf$=q$:ifq$=""then265
  66. 410 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  67. 415 ifer<>63then465
  68. 420 poke214,11:print:print"   insert disk containing your font.
  69. 425 [153]:[153][163]14)"hit spacebar."
  70. 430 [161]qz$:[139]qz$[178]""[176]qz$[179][177]" "[167]430
  71. 435 [137]465
  72. 440 [139]z$[178]"a"[167]bs[178]53248:[151]53272,21:sa[178]0:[137]475
  73. 445 [139]z$[178]"b"[167]bs[178]55296:[151]53272,23:sa[178]7:[137]475
  74. 450 nf$[178]"font"[170]z$
  75. 455 [153]"load":[151]214,10:[153]
  76. 460 [153]"      please wait while loading..."
  77. 465 [158]57812nf$,8,0:[151]780,.:[151]781,0:[151]782,8:[158]65493
  78. 470 bs[178]2048:[151]53272,19:sa[178]7
  79. 475 r$[178]"wait":[139]z$[178]"i"[167]r$[178]""
  80. 480 [153]"load":[151]214,11:[153]:
  81. 485 [153][163]7)r$"enter title: tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(wait"
  82. 490 [151]214,11:[153]:[153][163]20);
  83. 495 [141]1150:l1[178]32:h1[178]127:l2[178]160:h2[178]255:li[178]10:[141]1080
  84. 500 in$[178]q$
  85. 505 [153]"load"[163]12)r$" color numbers: wait"
  86. 510 [153]r$"0-black 4-purple  8-orange 12-m.graywait"
  87. 515 [153]r$"1-white 5-green   9-brown  13-l.greenwait"
  88. 520 [153]r$"2-red   6-blue   10-l.red  14-l.bluewait"
  89. 525 [153]r$"3-cyan  7-yellow 11-d.gray 15-l.graywait"
  90. 530 [153]"  "in$
  91. 535 [153]r$" enter color # for indicated letter: wait"
  92. 540 [129]i[178]1[164][195](in$)
  93. 545 [151]214,8:[153]
  94. 550 [153][200](b$,i[170]1)"def^"
  95. 555 [151]214,12:[153]
  96. 560 [153]r$"color #      cmdcmdcmdcmdcmdwait";
  97. 565 [141]1150:l1[178]48:h1[178]57:li[178]2
  98. 570 [139]z$[178]"i"[167][141]1075:[137]580
  99. 575 [141]1080
  100. 580 c(i)[178][197](q$):[139]c(i)[179]0[176]c(i)[177]15[167]555
  101. 585 [130]i
  102. 590 [153]:[153]r$"border color #      cmdcmdcmdcmdcmdwait";
  103. 595 [141]1150:l1[178]48:h1[178]57:li[178]2
  104. 600 [139]z$[178]"i"[167][141]1075:[137]610
  105. 605 [141]1080
  106. 610 bo[178][197](q$):[139]bo[179]0[176]bo[177]15[167][153]"on";:[137]590
  107. 615 [153]:[153]r$"screen color #      cmdcmdcmdcmdcmdwait";
  108. 620 [141]1150:l1[178]48:h1[178]67:li[178]2
  109. 625 [139]z$[178]"i"[167][141]1075:[137]635
  110. 630 [141]1080
  111. 635 ba[178][197](q$):[139]ba[179]0[176]ba[177]15[167][153]"on";:[137]615
  112. 640 e[178]0:[129]i[178]1[164][195](in$):[139]ba[178]c(i)[167]e[178]1:m[178]i:i[178][195](in$)
  113. 645 [130]i:[139]e[178]0[167]655
  114. 650 [153]:[153]r$"screen color same as letter #    cmdcmdcmdcmd";m;"onononwait":[137]615
  115. 655 [151]646,[194](53281)
  116. 660 [153]"load"in$
  117. 665 [151]56333,127:[151]1,[194](1)[175]251
  118. 670 [129]i[178]1[164][195](in$):l[178][194](1023[170]i):x[178]bs[170]8[172]l
  119. 675 [129]j[178]0[164]7:ld(i,j)[178][194](x[170]j):[130]j
  120. 680 [130]i:[151]1,[194](1)[176]4:[151]56333,129
  121. 685 [151]53272,21
  122. 690 [151]214,10:[153]:[153][163]9)"def                      wait"
  123. 695 [153][163]9)"     patience....     wait"
  124. 700 [153][163]9)"                      wait"
  125. 705 [129]i[178]1[164]4:p$(i)[178]"":[130]
  126. 710 [129]k[178]0[164]6[169]2:i[178]k[173]2[170]1:[151]646,lt(i)
  127. 715 [151]214,13:[153]:[153][163]9)"                      wait"
  128. 720 [153][163]9)" working on"lt$(i)"line! wait"
  129. 725 [153][163]9)"                      wait"
  130. 730 [129]j[178]1[164][195](in$):[139]j[178]1[167]p$(i)[178]p$(i)[170]c$(c(j)):[137]745
  131. 735 [139]c(j)[178]c(j[171]1)[167]745
  132. 740 p$(i)[178]p$(i)[170]c$(c(j))
  133. 745 [129]l[178]7[164]1[169][171]2:t[178]0
  134. 750 [139](ld(j,k)[175](2[174]l))[178]2[174]l[167]t[178]t[170]1
  135. 755 [139](ld(j,k)[175](2[174](l[171]1)))[178]2[174](l[171]1)[167]t[178]t[170]2
  136. 760 [139](ld(j,k[170]1)[175](2[174]l))[178]2[174]l[167]t[178]t[170]4
  137. 765 [139](ld(j,k[170]1)[175](2[174](l[171]1)))[178]2[174](l[171]1)[167]t[178]t[170]8
  138. 770 [145]t[170]1[137]785,785,785,775,785,785,775,775,785,785,775,775,785,775,775,775
  139. 775 [139][201](p$(i),1)[179][177]"wait"[167]785
  140. 780 p$(i)[178][200](p$(i),[195](p$(i))[171]1)[170][202](ch$(t),2,5):[137]790
  141. 785 p$(i)[178]p$(i)[170]ch$(t)
  142. 790 [130]l,j,k
  143. 795 [151]53280,bo:[151]53281,ba:[153]"load"
  144. 800 tb[178](40[171]([195](in$)[172]4))[173]2
  145. 805 [139]tb[178]0[167][129]i[